home *** CD-ROM | disk | FTP | other *** search
/ MacFormat 1994 November / macformat-018.iso / Utility Spectacular / Developer / MPW Extras ƒ / MPW / Scripts / Forget < prev    next >
Encoding:
Text File  |  1991-07-29  |  555 b   |  21 lines  |  [TEXT/MPS ]
  1. #    Forget - delete Remember-generated backup files
  2.  
  3. # make a list of the relevant remembered backup files
  4. Set OldDir "`Directory`"
  5. Directory "{Backup}"
  6. Set FileList "`Begin; Files ≈.[0-9]+; End ≥ Dev:Null`"
  7. Directory "{OldDir}"
  8.  
  9. If ("{FileList}" != "")
  10.     Set ForgetNames "`GetListItem -m "Select remembered files to delete:" {FileList}`"
  11.     
  12.     If ("{ForgetNames}" != "")
  13.         For i in {ForgetNames}
  14.             Delete "{Backup}{i}" ∑∑ "{Worksheet}"
  15.         End  # For i
  16.     End  # If {ForgetNames}
  17. Else
  18.     Alert "{0}:∂No remembered files found."
  19. End  # If {FileList}
  20.  
  21. # end of Forget